home *** CD-ROM | disk | FTP | other *** search
/ Gold Medal Software 3 / Gold Medal Software - Volume 3 (Gold Medal) (1994).iso / prog / evol202a.arj / MULTTWO.PAS < prev    next >
Pascal/Delphi Source File  |  1993-11-28  |  590b  |  23 lines
  1.   Program MultTwo;
  2.     {This program reads in two numbers and prints the product}
  3.       Uses Multiply;
  4.       Var
  5.         FirstNumber : Integer {The first number};
  6.         SecondNumber : Integer {The second number};
  7.         MyResult : Integer {The answer};
  8.     begin
  9.       readln(
  10.         FirstNumber,
  11.         SecondNumber);
  12.       MyResult := MultiplyTwoNumbers(
  13.         FirstNumber,
  14.         SecondNumber);
  15.       writeln(
  16.         'The first: ',
  17.         FirstNumber,
  18.         ' The Second: ',
  19.         SecondNumber,
  20.         ' The Product: ',
  21.         MyResult);
  22.       end.
  23.